CAAPlanetPerihelionAphelion_JupiterK <-
function(Year){
.Call("CAAPlanetPerihelionAphelion_JupiterK", Year)
}
